home *** CD-ROM | disk | FTP | other *** search
/ Klondike Gold - An Interactive History / Klondike Gold - An Interactive History.iso / mcgee.dir / 00500_Script_STARTMOVIE SCRIPT < prev   
Text File  |  1996-01-18  |  1KB  |  61 lines
  1. --movie script 1
  2.  
  3. on startMovie
  4.   repeat with n = 18 down to 10
  5.     set the visible of sprite n = FALSE
  6.   end repeat
  7.   
  8.   repeat with n = 31 down to 28
  9.     set the visible of sprite n = FALSE
  10.   end repeat
  11.   
  12.   set the keydownscript to "checkKey"
  13.   howLoudMcGee
  14.   --timeITmcgee
  15.   emptyHT    --needed to initialize gBacklist Global DO NOT REMOVE
  16. end
  17.  
  18.  
  19.  
  20.  
  21. on Forward Destination
  22.   puppetsprite 1,TRUE
  23.   put the locH of sprite 1 into posH
  24.   if the locH of sprite 1 > 281 then
  25.     set posH = posH - 7
  26.     set the locH of sprite 1 to posH
  27.   else
  28.     go Destination
  29.     puppetsprite 1,FALSE
  30.   end if
  31. end
  32.  
  33.  
  34. on Backward Destination
  35.   puppetsprite 1,TRUE
  36.   put the locH of sprite 1 into posH
  37.   if the locH of sprite 1 < 281+77 then
  38.     set posH = posH + 7
  39.     set the locH of sprite 1 to posH
  40.   else
  41.     go Destination
  42.     puppetsprite 1,FALSE
  43.   end if
  44. end
  45.  
  46. on lightBut A, B
  47.   
  48.   repeat with n = A down to B
  49.     if rollOver(n) then
  50.       set the visible of sprite n = TRUE
  51.     else
  52.       set the visible of sprite n = FALSE
  53.     end if 
  54.   end repeat
  55. end
  56.  
  57. on stopmovie
  58.   howLoud
  59.   unloadcast
  60. end
  61.